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1.  SECTION  1.  INTRODUCTION 

1.1  Purpose  of  the  Validation  Summary  Report 

The  purpose  of  the  Validation  Summary  Report  (VSR)  is  to  identify  individual 
COBOL  language  elements  whose  implementation  does  not  conform  to  American 
National  Standard  Programming  Language  COBOL,  X3. 23-197 4 , and  to  Federal  Stan- 
dard COBOL  as  adopted  from  the  American  National  Standard  by  Federal  Information 
Processing  Standard  21-1  (FIPS  PUB  21-1). 

1.2  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBOL, 
their  related  data,  and  an  executive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  program  which 
includes  many  test3  and  supporting  procedures  indicating  the  result  of  the 
tests. 

The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  language  elements  by  terminating 
compilation,  giving  fatal  diagnostic  messages,  or  terminating  execution  abnor- 
mally, then  the  test  containing  the  code  the  compiler  was  unable  to  process  is 
deleted  and  the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  constitute 
the  raw  data  from  which  the  members  of  the  Federal  Compiler  Testing  Center 
produce  a Validation  Summary  Report. 

1.3  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution  of 

the  programs  comprising  the  COBOL  Compiler  Validation  System.  Section  2 is 
subdivided  into  a subsection  representing  each  level  of  each  module  defined  in 
American  National  Standard  Programming  Language  COBOL,  X3. 23-1974.  Each 

subsection  contains  a list  of  all  of  the  language  elements  which  must  be 

implemented  in  order  to  claim  support  of  that  level/module.  The  list  of 
language  elements  will  be  annotated  to  include  a description  of  both  syntax  and 
semantic  errors  detected  during  the  validation. 

b.  Section  3 - FIPS  PUB  21-1  defines  four  Federal  levels  of  the  COBOL 

Standard.  Section  3.1  of  the  VSR  lists  the  discrepancies  described  in  Section  2 
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b«  the  Federal  level  in  which  the  problem  occurs.  Section  3.2  lists  discrepan- 
cies with  regard  to  the  Flagging  requirement  defined  in  Federal  Standard  COBOL 
(the  FIPS  FLAGGER).  Section  3*3  lists  discrepancies  for  the  Report  Writer 
Module,  which  is  not  a part  of  Federal  Standard  COBOL  but  is  contained  in 
X3- 23-1974. 

c.  Section  4 contains  information  which  describes  the  software  environment 
in  which  the  compiler  was  tested.  This  includes  the  name  and  version  of  the 
operatitig  system;  the  implementor-names  which  were  used  in  the  Environment 
Division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable,  information  regarding  the  use  of  compiler  optimization 
features. 

d.  Section  5 contains  the  results  of  the  ASCII  validation.  The  purpose  of 
these  tests  is  to  ascertain  whether  magnetic  tapes  written  in  ASCII  code  and 
with  ANSI  standard  labels,  and  card  decks  with  ASCII  code,  can  be  transported 
between  the  system  being  validated  and  a foreign  computer  system. 

e.  Appendix  A is  the  Validation  Summary  Working  Document,  a working  paper 
resulting  from  the  compilation  and  execution  of  the  CCVS,  and  from  which  the  VSR 
is  derived.  Not  all  VSR's  will  contain  this  appendix. 

1.4  Abstract  Covering  Compliance  to  ANS  COBOL 

Definition  of  an  Implementation  of  American  National  Standard  Programming 
Language  COBOL  (excerpts  from  X3. 23- 1974,  Chapter  1,  Section  1.5). 

An  implementation  is  defined  to  meet  the  requirements  of  the  American  National 
Standard  COBOL  specification  if  that  implementation  includes  a fully  implemented 
specified  level  of  each  of  the  functional  processing  modules  and  of  the  Nucleus 
as  defined  in  this  Standard.  It  follows  from  this  that,  in  order  to  meet  the 
requirements  of  this  Standard,  an  implementation  must: 

a.  Not  require  the  inclusion  of  substitute  or  additional  language  elements 
in  the  source  program,  in  order  to  accomplish  any  part  of  the  function  of  any  of 
the  standard  language  elements. 

b.  Accept  all  standard  language  elements  contained  in  a given  level  of  a 
module  which  is  specified  as  being  included  in  the  implementation,  except  as 
specifically  exempted  (as  pertaining  to  specific  hardware  components  for  which 
support  Is  not  claimed).  See  "Elements  that  Pertain  to  Specific  Hardware 
Components"  below. 

These  points  are  of  particular  pertinence  in  two  areas: 

(1)  There  are  throughout  the  American  National  Standard  COBOL 
specification  certain  language  elements  whose  syntax,  or  effect,  is  specified  to 
be,  in  part,  implementor-defined.  While  the  implementor  specifies  the  con- 
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at’.ralnt'.a  on  that  portion  of  each  element's  syntax  or  rules  that  is  indicated 
cated  in  this  Standard  to  be  implementor-defined,  such  constraints  may  not 
include  any  requirement  for  the  inclusion  in  the  source  program  of  substitute  or 
additional  language  elements. 

(2)  When  a function  is  provided  outside  the  source  program  that 
accomplishes  a function  specified  by  any  particular  standard  COBOL  element,  then 
the  implementation  must  not  require,  except  for  Environment  Division  elements, 
the  specification  of  that  external  function  in  place  of  or  in  addition  to  that 
standard  language  element: 

The  following  qualifications  apply  to  the  American  National  Standard  COBOL 
specification: 

a.  There  are  certain  language  elements  which  pertain  to  specific  types  of 
hardware  components.  In  order  for  an  implementation  to  meet  the  requirements  of 
this  standard,  the  implementor  must  specify  the  minimum  hardware  configuration 
required  for  that  implementation  and  the  hardware  components  t.iat  it  supports. 
Further,  when  support  is  thus  claimed  for  a specific  hardware  component,  all 
standard  language  elements  that  pertain  to  that  component  must  be  implemented  if 
the  module  in  which  they  appear  is  included  in  the  implementation.  Language 
elements  that  pertain  to  specific  hardware  components  for  which  support  is  not 
claimed,  need  not  be  implemented.  However,  the  absence  of  such  elements  from  an 
implementation  of  American  National  Standard  COBOL  must  be  specified. 

b.  An  implementation  of  American  National  Standard  COBOL  may  include  the 
ENTER  statement  or  not,  at  the  option  of  the  implementor. 

c.  A"  implementation  that  includes,  in  addition  to  a specified  level  of 
each  of  the  functional  processing  modules  and  of  the  Nucleus,  elements  or 
functions  that  either  are  not  defined  in  the  American  National  Standard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  module  not  otherwise 
included  in  the  implementation,  meets  the  requirements  of  this  Standard.  This 
is  true  even  though  it  may  imply  the  extension  of  the  list  of  reserved  words  by 
the  implementor,  and  prevent  proper  compilation  of  some  programs  that  meet  the 
requirements  of  this  Standard.  The  implementor  must  specify  any  optional 
language  (language  not  defined  in  a specified  level  but  defined  elsewhere  in  the 
Standard)  or  extensions  (language  elements  or  functions  not  defined  in  this 
Standard)  that  are  included  in  the  implementation. 

d.  In  general,  the  American  National  Standard  COBOL  specification 
specifies  no  upper  limit  on  such  things  as  the  number  of  statements  in  a pro- 
gram, the  number  of  operands  permitted  in  certain  statements,  etc.  It  is 
recognized  that  these  limits  will  vary  from  one  implementation  of  American 
National  Standard  COBOL  to  another  and  may  prevent  the  proper  compilation  of 
some  programs  that  meet  the  requirements  of  this  standard. 
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IMDI  EMENTOR-DEFINED  LANGUAGE  SPECIFICATIONS 

The  language  elements  in  the  following  lists  depend  on  implementor  definitions 
to  complete  the  specificaton  of  the  syntax  or  rules  for  the  elements. 

The  elements  whose  syntax  is  partly  implementor-defined  are: 


Element 


Implementor-Defined  Aspect 


SOURCE-COMPUTER  paragraph 
OBJECT-COMPUTER  paragraph 
MEMORY  SIZE  clause 
alphabet-name 

SPECIAL-NAMES  paragraph 
ASSIGN  clause 
VALUE  OF  clause 

RERUN  clause 

CALL  and  CANCEL  statements 

COPY  statement 

ENTER  statement 
Margin  R 
Area  B 

Qualification 


computer-name 

computer-name 

integer 

implementor-name;  whether  imple- 
mentor-names are  provided. 

implementor-name 

implementor-name 

implementor-name;  whether  imple- 
mentor-names are  provided. 

implementor-name  and  the  form; 
the  implementor  provides  at 
least  one  of  seven  specified 
forms . 

relationship  between  operand  and 
the  referenced  program. 

relationship  between  library-name 
textname,  and  the  library. 

language-name 

The  location. 

The  number  of  character  posi- 
tions . 

The  number  of  qualifiers;  at 
least  five  must  be  supported. 
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The  elements  whose  effect  is  partly  implementor-defined  are: 

Element  Implementor-Defined  Aspect 


alphabet-name  The  correspondence  between  native 

and  foreign  character  sets. 

imDlementor-name  switches  Whether  setting  can  change  during 

execution. 

Representation  and  whether  auto- 
matic alignment  occurs. 

Representation  and  whether  auto- 
matic alignment  occurs. 

Whether  implicit  FILLER  positions 
are  generated;  their  effect  on 
the  size  of  group  items  and 
redefining  items. 

Maximum  size  of  one  transfer  of 
data  in  Level  1 Nucleus. 

Maximum  size  of  one  transfer  of 
data  in  Level  1 Nucleus. 

Representation  of  valid  sign  in 
the  absence  of  the  SIGN  IS 
SEPARATE  clause. 

Comparison  of  nonnumeric  items  Collating  sequence,  where  NATIVE 

or  implementor-name  collating 
sequence  is  implicitly  or 
explicitly  specified. 

Arithmetic  expressions  Number  of  places  carried  for 

intermediate  results. 


USAGE  IS  COMPUTATIONAL 
clause 

USAGE  IS  INDEX  clause 

SYNCHRONIZED  clause 

ACCEPT  statement 

DISPLAY  statement 

Numeric  test 
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Figments  That  Pertain  to  Specific  Hardware  Components 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  be  implemented  in  an 
implementation  of  American  National  Standard  COBOL  when  support  is  claimed , by 
the  implementor,  for  the  specific  types  of  hardware  components  to  which  they 
pertain,  and  the  module  in  which  they  are  defined  is  included  in  that 
implementation. 


Element 


Hardware  Component 


CODE-SET  clause 

MULTIPLE  FILE  TAPE  clause 
CLOSE . . . REEL/UNIT  statement 
CLOSE... NO  REWIND  statement 
OPEN.. .REVERSED  statement 


OPEN... NO  REWIND  statement 

0PEN...I-0  statement 
(Sequential  1-0  only) 

OPEN  EXTEND  statement 

REWRITE  statement 

(Sequential  1-0  only) 

SEND... BEFORE/ AFTER 
ADVANCING  statement 


USE...I-0  (Sequential 
1-0  only) 

WRITE. . .BEFORE/ AFTER 
ADVANCING 


Device  capable  of  supporting  the 
specified  code. 

Reel 

Reel  or  mass  storage 

Reel  or  mass  storage 

Reel  with  the  capability  of 
making  records  available  in  the 
reversed  order;  mass-storage 
with  the  capability  of  making 
records  available  in  the  re- 
versed order. 

Reel  or  mass  storage 

Mass  storage 

Reel  or  mass  storage 

Mass  storage 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  ac- 
tion based  on  mnemoni c-names. 

Mass  storage 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  ac- 
tion based  on  mnemonic-name. 


1.5  The  Federal  COBOL  Standard 


The  COBOL  compiler  validation  results  enclosed  in  this  document  reflect  the 
degree  to  which  the  subject  COBOL  compiler  implements  the  Federal  COBOL 
Standard.  The  Federal  COBOL  Standard  i3  essentially  the  same  as  the  American 
National  Standard  Programming  Language  COBOL,  X3. 23-197*1,  with  two  exceptions: 

The  Federal  COBOL  Standard  defines  H levels  and  the  ANSI  Standard 
defines  only  the  minimum  COBOL  implementation  and  the  full  standard. 

Low  and  High  levels  of  the  Federal  COBOL  Standard  (see  1.5.1) 
correspond  to  the  above  two  ANSI  levels  (minus  the  Report  Writer 
module).  Two  additional  levels,  low-intermediate  and  high-intermedi- 
ate have  been  included  in  the  Federal  Standard  between  the  highest 
and  lowest  subsets.  These  additional  levels  accommodate  hardware 
which  cannot  support  the  full  standard,  but  which  is  capable  of 
implementing  more  than  the  minimum  standard. 

The  Federal  COBOL  Standard  states  that  the  Report  Writer  Module  is 
not  mandatory  in  any  Federal  level,  but  that  the  specifications 
contained  in  X3»23-197*1  should  be  used  to  the  extent  practical, 
consistent  with  requirements. 

The  Federal  COBOL  Standard  requires  that  a compiler  contain  as  a minimum  the 
elements  specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even  unique 
vendor  extensions.  Compatibility  amoung  various  implementations  of  a given 
level  containing  additional  features  must  be  controlled  by  management  imposed 
standards  and  restrictions. 

1.5.1  Federal  Standard  COBOL  Levels 

a.  Federal  Standard  COBOL  specifications  are  the  language  specifications 
contained  in  American  National  Standard  Programming  Language  COBOL,  X3. 23-197*1. 
For  purposes  of  the  Federal  Standard,  the  modules  defined  in  X3. 23-197*1  are 
combined  into  four  levels.  Not  all  computers  are  large  enough  to  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore,  the  Federal 
Government  requires  that  all  compilers  acquired  by  its  agencies  contain  as  a 
minimum  one  of  the  four  Federal  levels,  depending  on  machine  size,  configuration 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  machine-independent  COBOL 
programs. 

b.  The  four  levels  of  Federal  Standard  COBOL  are  identified  as:  Low, 
Low-Intermediaoc  High-Intermediate,  and  High.  Each  Federal  Standard  COBOL 
level  is  composed  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of  the 
eleven  Functional  Processing  Modules  (FPMs)  defined  in  X3. 23-197*1.  The  four 
Federal  Standard  COBOL  levels  are  reflected  in  the  following  table.  The  numbers 
in  the  table  refer  to  the  level  within  the  FPM  or  nucleus  as  designated  in 


I 


23-1974,  and  a 
omitted. 

dash  in 

the  table 

denotes  that  the 

corresponding  FPM  is 

Low 

Low 

Inter- 

mediate 

High 

Inter- 

mediate 

High 

NUCLEUS 

FPMs 

1 

1 

2 

2 

TABLE  HANDLING 

1 

1 

2 

2 

j SEQUENTIAL  1-0 

1 

1 

2 

2 

RELATIVE  1-0 

- 

1 

2 

2 

INDEXED  1-0 

- 

- 

- 

2 

SORT-MERGE 

- 

- 

1 

2 

REPORT  WRITER 

- 

- 

- 

- 

SEGMENTATION 

- 

1 

1 

2 

LIBRARY 

- 

1 

1 

2 

DEBUG 

INTER-PROGRAM 

1 

2 

2 

COMMUNICATION 

- 

1 

2 

2 

COMMUNICATION 

- 

- 

2 

2 

1.5.2  Conformance  to  Federal  Standard  COBOL 

A compiler  implemented  in  conformance  to  Federal  Standard  COBOL  must  meet  at 
least  the  following  requirements. 

a.  The  implementation  must  include  all  of  the  language  elements  of  at 
least  one  of  the  levels  of  Federal  Standard  COBOL. 

b.  The  implementation  must  meet  all  of  the  requirements  defined  in 
American  National  Standard  COBOL,  X3. 23-1974,  Section  I,  paragraph  1 . 5 , Defini- 
tion of  An  Implementation  of  American  National  Standard  COBOL  which  is  provided 
in  section  1.4  of  this  VSR. 

c.  The  implementation  must  provide  a facility  for  the  user  to  optionally 
specify  a level  of  Federal  Standard  COBOL  for  monitoring  his  source  program  at 
compile  time.  The  monitoring  will  be  an  analysis  of  the  syntax  used  in  a source 
program  against  the  syntax  included  in  the  specified  level  of  Federal  Standard 
COBOL.  Any  syntax  used  in  the  source  program  that  does  not  conform  to  that 
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allowed  bv  the  user  selected  level  of  Federal  Standard  COBOL  will  be  diagnosed. 
The  syntax  diagnosed  as  not  conforming  to  the  specified  level  will  be  identified 
to  the  user  through  a diagnostic  message  on  the  source  program  listing.  The 
diagnostic  message  will  contain,  at  least:  (1)  The  identification  of  the  source 
program  line  number  in  which  the  nonconforming  syntax  occurs,  (2)  the 
identification  of  the  level  of  Federal  Standard  COBOL  that  supports  the  syntax 
or  that  the  syntax  is  nonstandard  COBOL. 

1.6  Use  of  the  VSR 

The  Federal  Comniler  Testing  Center  may  make  full  and  free  public  disclosure  of 
the  Validation  Summarv  Report  (VSR)  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  the  validation  are  nnlv  for 
the  nurpose  of  satisfying  United  States  Oovernment  requirements,  and  applv  only 
to  the  nomnuter  svatem.  onerating  system  release,  and  compiler  version 
identified  in  the  VSR. 

The  COBOL  Comniler  Validation  System  i3  used  to  determine,  insofar  as  is 
nractical.  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  reDresent  or  warrant  that  the  statements,  or 
any  one  of  them,  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR  i3  not 
meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summarized  therein. 

1.7  Sources  of  Additional  Information 

FIPS  PUB  21-1  defines  the  Federal  COBOL  Language  Standard.  This  publication  is 
available  from  the  Office  of  ADP  Standards  Management,  National  Bureau  of 
Standards,  Washington.  D.  C.,  20234. 

The  detailed  COBOL  language  specifications  are  eiven  in  the  publication 
"American  National  Standard  Programming  Lanmuage  COBOL,  X3. 23-1974".  available 
from  the  American  National  Standards  Institute,  1430  Broadway,  New  York,  New 
York  10018. 

An  explanation  of  the  COBOL  Comniler  Validation  Svstem  is  contained  in  the  CCVS 
User's  Guide.  This  document  explains  how  to  run  the  compiler  validation  system. 
The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  CCVS  programs  are 
available  from  the  National  Technical  Information  Service,  Springfield. 
Virginia,  22151.  (Ordering  information  can  be  obtained  from  the  Federal 
Compiler  Testing  Center.) 

1.8  Reauests  for  Interpretation 

Ouestions  regarding  this  VSR  or  the  CCVS  in  general  should  be  forwarded  to  the 
FCTC.  If  anv  problem  cannot  be  adeauately  resolved  through  the  FCTC,  the 
request  for  interpretation  will  be  forwarded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 
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A brochure  describing  the  validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  Involving  interpretation  of 
the  current  Federal  Standard  is  available  from  the  Federal  Compiler  Testing 
Center,  Automated  Data  and  Telecommunications  Service  (CFT),  General  Services 
Administration,  Washington,  DC  20406. 

1.9  Modules  and  Language  Elements  Excluded  from  Testing 

During  an  official  validation,  certain  CCVS  tests  may  not  be  used,  and  certain 
facilities  provided  by  the  subject  compiler  may  not  be  tested. 

1.9.1  Federal  Standard  COBOL  Approved  Interpretations 

The  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  41  No. 
179,  September  1 4 , 1976,  an  approved  interpretation  of  Federal  Standard  COBOL  as 
pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE  statements. 
This  interpretation  states  that  "size  of  the  intermediate  result  field  is 
implementor-def ined . " 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable,  all 
COMPUTE  statements  and  IF  statements  containing  arithmetic  expressions  have  been 
removed  from  the  COBOL  Compiler  Validation  System. 

1.9.2  Report  Writer  Module 

FIPS  PUB  21-1  excludes  the  Report  Writer  Module  from  the  Federal  COBOL  Standard. 
However,  the  Report  Writer  Module  is  still  tested  during  a validation  if  support 
for  that  module  is  claimed  by  the  compiler  vendor. 

1.9.3  Communication  Module 

Although  it  is  part  of  Federal  Standard  COBOL  as  defined  by  FIPS  PUB  21-1,  the 
Communication  Module  is  not  currently  tested  in  the  course  of  an  official  vali- 
dation for  two  specific  reasons.  First,  a large  volume  of  requests  for  inter- 
pretation on  this  module  have  been  submitted  to  the  cognizant  ANSI  committee 
(X3J4)  for  resolution.  Secondly,  facilities  for  testing  were  insufficient  to 
determine  the  validity  of  the  Communication  Module  test  programs  during  the 
development  of  CCVS74. 

1.9.4  Vendor  Omissions  or  Extensions 


Language  elements 
implementation  by 
extensions  to  the 


are  not  tested  which  have  been  legitimately  omitted  from  the 
the  implementor  (refer  to  1.4).  Additionally , no  implementor 
standard  COBOL  language  are  tested  in  any  way. 


..  MB  . La 


A 


a 


1 


TV  STk-VSW* 


INTRODUCTION 


1 


h 


1.10  Timeliness  of  the  Validation  Summarv  Reports 

The  timeliness  of  the  Validation  Summary  Renort  is  important.  Compilers 
and  their  related  operating  system  software  are  modified  several  times  a year. 
The  Compiler  Validation  System  used  to  validate  compilers  is  also  updated  during 
the  life  of  the  svstem.  Therefore  to  ensure  that  the  latest  version  of  both  the 
vendor's  compiler  and  the  Validation  Svstem  are  the  latest  officially  released 
versions,  check  with  the: 

Director 

Federal  Compiler  Testing  Center 

Automated  Data  and  Telecommunications  Service  (CFT) 

General  Services  Administration 
Washington.  DC  20406 
(703)  557-7806 

Please  u3e  the  Validation  Summarv  Report  number  of  this  reoort  when 
corresponding  with  the  Testing  Center. 
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2.  SECTION  2.  DETAILED  EVALUATION  OF  ERRORS. 


This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System  (CCVS).  The  version  of 
the  CCVS  used  during  this  validation  is  shown  inside  the  front  cover  of  the  VSR. 

Section  2 is  made  up  of  a variable  number  of  subsections.  The  number  of  sub- 
sections is  dependent  on  the  Level  of  Federal  COBOL  being  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  high 
level  of  a module  is  validated  then  there  will  be  two  subsections  for  that 
module;  one  for  the  low  level  and  one  for  the  high  level. 

A validation  of  the  low  level  of  Federal  Standard  COBOL  would  result  in  three 
subsections  being  present.  One  for  Nucleus  level  1,  one  for  Sequential  1-0 
level  1 , and  one  for  Table  Handling  level  1 . 

Each  error  or  deviation  noted  in  this  section  makes  reference  to  a program  or 
functional  COBOL  module.  If  additional  information  is  required  or  is  available 
it  will  be  contained  in  the  optional  Appendix  A.  If  no  further  information  is 
necessary  then  Appendix  A will  not  be  present. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  American  National  Standard  Programming  Language 
COBOL  tested  within  the  program. 

For  the  audit  routines  which  are  not  flagging  routines,  a five  character  name  is 
used  which  has  the  general  format  XXNMM.  The  first  two  characters  are 
alphabetic  and  identify  the  functional  module  tested  by  the  program.  The 
permissable  values  are: 

NC  - Nucleus 
TH  - Table  Handling 
SQ  - Sequential  1-0 
RL  - Relative  1-0 
IX  - Indexed  1-0 
ST  - Sort -Merge 
RW  - Report  Writer 
SG  - Segmentation 
LB  - Library 
DB  - Debug 

IC  - Inter-Program  Communication 
CM  - Communication 

The  third  character  of  the  audit  routine  name  is  either  a 1 or  2,  and  identifies 
the  level  of  the  functional  module  being  tested.  Each  module  and  level  is 
represented  by  several  programs.  The  fourth  and  fifth  characters  of  the  program 
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name  are  sequence  numbers  for  programs  which  test  features  in  the  same  level  of 
the  same  functional  processing  module. 

As  an  example,  the  program  name  NC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 

For  the  audit  routines  which  are  used  to  validate  the  flagging  requirement  of 
Federal  Standard  COBOL  (1.5.2.C).  a five  character  program  name  is  used  which 
ha3  the  format  XXYZN.  The  first  two  characters  XX  identify  the  functional  COBOL 
module  being  tested  by  the  program  and  the  permissible  values  are  the  same  as 
noted  above.  The  third  character  Y is  the  character  4 and  identifies  the 
program  as  one  of  a series  which  is  used  for  testing  compiler  flagging.  The 
fourth  character  Z is  the  character  2.  ^ or  l|  and  identifies  the  highest  Federal 
level  of  the  COBOL  language  needed  to  suDport  all  language  elements  used  in  the 
nrogram.  The  characters  2.  3 and  4 represent  the  Low-Intermediate,  High-Inter- 
mediate and  High  Levels  resDectively  of  Federal  Standard  COBOL.  The  fifth  char- 
enter  N is  a number  1 through  9 which  gives  a unique  name  to  each  program  con- 
taining features  within  the  same  functional  processing  module  and  Federal  COBOL 
level . 

As  an  example,  the  Drogram  name  LB421  is  the  first  program  of  a set  and  the 
COBOL  elements  used  in  the  program  are  available  at  the  Low-Intermediate  and 
higher  levels  of  Federal  Standard  COBOL.  Also,  the  program  is  used  in  testing 
compiler  flagging  for  the  Library  Module. 

Description  of  Section  2. 

Each  error/deviation  is  noted  by  number  in  the  left  hand  margin  opposite  the 
language  element  in  question.  This  number  is  used  in  section  3 to  categorize 
errors  by  Federal  level  (See  1.5.1).  Inserted  directly  below  the  language 
element  is  a brief  description  of  the  error.  To  the  right  of  the  language 
element  is  a page  reference  to  X3. 23-1974.  American  National  Standard 
Programming  Language  COBOL.  The  reference  enclosed  in  parenthesis  at  the  end  of 
the  description  is  to  the  appropriate  program  contained  in  the  Compiler 
Validation  System  which  gives  an  example  of  the  of  the  error/deviation  detected. 
Tf  the  suffix  to  the  program  name  is  zeros  (e.g..  NCOOO)  then  the  error  was 
detected  in  the  supporting  documentation  provided  with  the  compiler. 

If  the  optional  Appendix  A is  present,  then  the  program  name  associated  with 
each  error  may  be  suffixed  with  additional  information.  For  example  an  A or  B 
following  the  name  represents  a syntax  or  semantic  error  respectively.  A number 
following  the  A or  B represent  the  error  number  which  can  be  found  in  appendix 
A. 
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Examnle : 


2.1  Nucleus  Level  1 


ODerational  symbols:  S V P 11-21 

2.1.9  

• The  Picture  character  'P'  is  not  supported 

• in  this  implementaion. 

• (NC101.A.2) 


. 


?.?  Sequential  1-0  Level  1 


[ i 


P.1.9  reDresents  the  ninth  error  for  Nucleus  Level  1 


11-21  represents  the  page  in  X3. 23-1974  where  the  language 
element  is  defined 

• Boxes  the  description  of  the  error /deviation 
NC101.A.2  represents: 


Proeram  name 
Svntax  error 
second  error 


NC101 

A 

2 


(If  Appendix  A is  Dresent) 
(If  Appendix  A is  present) 
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2.1  Nucleus  Level  1 

Language  Concepts  

Characters  used  for  words  

0.  1 ■ ....  9 
A.  R . ....  Z 

- (hyphen  or  minus) 

Characters  used  for  punctuation  

" quotation  mark 
( left  parenthesis 
) right  parenthesis 
. neriod 
space 

= enual  sign 

Characters  used  in  editing 

B space 
0 zero 

+ pi  US 

- minus 
CR  credit 
DB  debit 

7.  zero  suppress 
• check  protect 
$ currency  sign 
. comma 
. period 
/ stroke 

Separators 

The  separators,  semicolon  and  comma,  are  not 

allowed  

Character-strings  

COROL  words  

Not  mere  than  30  characters 

User-defined  words 

data-name 

Must  begin  with  an  alphabetic  character  . . . . 

Must  be  unique:  may  not  be  qualified  

level-number 

mnemonic-name 

Daraarraph-name 

nrogram-name 

routine-name 

section-name 

System-names  

computer-name 
imnl ementor-name 
languacre-name 

Reserved  word 3 


1-75 

1-76 

1-65 

1-58 


I- 75 

II-  1 
1-76 
1-76 

I- 76 

II-  1 
II- 1 


1-78 

1-79 


Kev  words 
Optl  final  words 

Figurative  constants 1-80 

ZERO 

SPACE 

HIGH-VALUE 

LOW-VALUE 

QUOTE 


SDecial-character  words  1-80 

Literals 1-80 


Nonnumeric  literals  have  lengths  from  1 
through  120  characters 

Numeric  literals  have  lengths  from  1 through 


18  digits 

PICTURE  character-strings  1-82 

Comment-entries  1-82 

Reference  Format 1-105 

Seauence  number  1-105 

Area  A 1-105 

Division  header  1-106 

Section  header 1-106 

Paragraph  header 1-107 

Data  Division  entries  1-107 

Area  B 1-105 

Paragraphs 1-107 

Data  Division  entries  1-107 

Continuation  of  lines  1-106 

Only  nonnumeric  literals  may  be  continued  II- 1 

Comment  lines  1-108 

Asterisk  (*)  comment  lines 
Stroke  (/)  comment  line 

Identification  Division I-91* 

The  PROGRAM-TD  naragraph II-3 

The  AUTHOR  Daragraph II-2 

The  INSTALLATION  paragraph II-2 

The  DATE-WRITTEN  paragranh II-2 

The  SECURITY  paragraph II-2 

Environment  Division 1-95 

The  SOURCE-COMPUTER  ; aragraph II-5 

comnuter-name 

The  OBJECT-COMPUTER  paragraph  II-6 

comDuter-name 
MEMORY  SIZE  clause 
PROGRAM  COLLATING  SEQUENCE  clause 
The  SPECIAL-NAMES  paragraph  II-8 
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NUCLEUS  I.FVEL  1 


' 

. 


! 

i 


i 


implementor-name  IS  mnemonic-name 
implementor-name  IS  mnemonic-name  series 
ON  STATUS 
OFF  STATUS 

alphabet-name  clause 
CURRENCY  SIGN  clause 
DECIMAL-POINT  clause 


Data  Division 1-97 

Working-Storage  Section  11-11 

The  data  description  entry 11-12 

The  BLANK  WHEN  ZERO  clause II- 1 4 

The  data-name  or  FILLER  clause II- IS 

The  JUSTIFIED  clause  (may  be  abbreviated  JUST) 11—16 

Level  -numher 11-17 

01  through  10  (level  numbers  must  be  2 digits)  . . . II- "3 

77 II- P 

The  PICTURE  clause  (may  be  abbreviated  PIC) II—  1 8 

Character-string  may  contain  30  characters II- 1 8 

Data  characters:  AX9 II- 1 8 

Operational  symbols:  S V P 11-21 

Fixed  insertion  characters 11-21 

0 (mav  be  used  onlv  in  edited  items) 


B (mav  he  used  only  in  edited  items) 

$ (currency  sign) 

+ and  - 
DB  and  CR 
/ 

Replacement  or  floating  characters 11-21 

$ (currency  sign) 

+ and  - 
Z 

• 


Currency  sign  substitution 11-21 

Decimal  point  substitution 11-21 

The  REDEFINES  clause  (may  not  be  nested) 11-27 

The  SIGN  clause 11-31 

The  SYNCHRONIZED  clause  (may  be  abbreviated  SYNC)  . . . 11-33 

The  USAGE  clause 11-35 

COMPUTATIONAL  (may  be  abbreviated  COMP) 

DISPLAY 

The  VALUE  clause 11-36 

literal 

Procedure  Division 1-99 

Conditional  expressions II— 4 1 
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NUCLEUS  LEVEL  1 


I 


Simple  condition II— 4 1 

Relation  condition II— 4 1 


Relational  operators 
[NOT]  GREATER  THAN 
[NOT]  LESS  THAN 
[NOT]  EQUAL  TO 


Comparison  of  numeric  operands 11-42 

Comparison  of  nonnumeric  operands  (oper- 
ands must  be  of  equal  size) 11-42 

Class  condition 11-43 

NOT  option 

Switch-status  condition  11-44 

The  arithmetic  statements  11-51 

Arithmetic  operands  limited  to  18  digits 

Overlapping  operands 11-51 

The  ACCEPT  statement  (only  one  transfer  of  data).  . . . 11-53 
The  ADD  statement 11-55 


identifier/literal  series 
TO  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ALTER  statement  (only  one  procedure-name)  11-57 

The  DISPLAY  statement  (only  one  transfer  of  data)  . . . 11-59 

The  DIVIDE  statement  II— 6 1 

INTO  identifier 
BY  identifier/literal 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 


The  ENTER  statement 11-63 

The  EXIT  statement 11-64 


The  GO  TO  statement  (procedure-name  is  required)  . . . 11-65 
DEPENDING  ON  phrase 

The  IF  statement  (statements  must  be  imperative)  . . . 11-66 
ELSE  phrase 

The  INSPECT  statement  (only  single  character 

data  item) LI-68 

TALLYING  phrase 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 
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NUCLEUS  LEVEL  1 


The  MOVE  statement  .... 
TO  identifier 
identifier  series 
The  MULTIPLY  statement  . . 
BY  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 
The  PERFORM  statement  . . . 
procedure-name 
THRU  phrase 
TIMES  phrase 

The  STOP  statement  . . . . 
literal 
RUN 

The  SUBTRACT  statement  . . 
identifier/literal  series 
FROM  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 


11-74 

11-77 

11-78 

11-85 

11-89 
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NUCLEUS  LEVEL  2 


2.2  Nucleus  Level  2 


All  elements  of  1 NUC  1.2  are  a part  of  2 NUC  1.2 


Language  Concepts  1-75 

Characters  used  for  punctuation 1-6*5 

. comma 

; semicolon 

Characters  used  for  arithmetic  operations  1-52 

+ addition 

subtraction 
* mul tiDlication 

/ division 
**  exponentiation 

Characters  used  in  relations 1-66 

= equal  to 

> greater  than 

< leas  than 

Separators 1-75 

The  separators,  semicolon  and  comma,  are  allowed  . . II- 1 

Character-strings  1-76 

COBOL  words 1-76 

User-defined  words  1-76 

condition-name 
data -name 

Need  not  bedn  with  an  alphabetic  character  . . II- 1 

Mav  be  qualified  if  necessary  for  uniqueness  . II- 1 

Reserved  words  1-79 

Figurative  constants  1-80 

ZEROS:  ZEROES 

SPACES 

HTGH-VALUES 

LOW-VALUES 

QUOTES 

ALL  literal 

Connectives 1-70 

Ouatifier  connectives:  OF,  IN 
Series  connectives:  , (separator  comma) 
and  ; (separator  semicolon) 

Logical  connectives:  AND.  OR.  AND  NOT,  OR  NOT 
Qualification  1-87 

Reference  format  1-105 

Continuation  of  lities  (continuation  of  words  and 

numeric  literals  is  allowed)  II- 1 


Identification  Division  1-94 

The  DATE-COMPILED  paragraph  II-4 


MW 
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nucleus  level  2 


Environment  Division 

The  SPECIAL-NAMES  paragraph  II-8 

alDhabet-name  clause 
literal 

Data  Division 1-97 

The  data  description  entry 11-12 

Level-number . 11-17 

01  through  49  (level-numbers  may  be  1 or  2 digits)  . 

66 

88 

The  REDEFINES  clause  (may  be  nested) 11-27 

The  RENAMES  clause  (may  be  nested) 11-29 

data-name 

data-name  THRU  data-name 

The  VALUE  clause 11-86 


literal-1,  literal-2 
literal- 1 THRU  literal-2 
literal  range  series 


Procedure  Division  I-QQ 

Arithmetic  expressions  Il-sq 

Conditional  expressions II— 4 1 

Simnle  condition II— 4 1 

Relational  condition  11-41 


Relational  operators 
rNOTl  = 

(NOT)  > 

r not)  < 

Comparison  of  nonnumeric  operands  (operands  of 


uneoual  size  are  allowed) 11-42 

Condition-name  condition  11-44 

Sitm  condition 11-44 

NOT  ontion 

Comnlex  condition 11-45 

Logical  operators  AND,  OR,  and  NOT 

Necrated  simple  condition 11-46 

Combined  and  negated  combined  conditions  11-46 

Abbreviated  combined  relation  condition  11-47 

Multiple  results  in  arithmetic  statements  11-51 

The  ACCEPT  statement  (no  restrictions  on  the  number 

of  transfers  of  data) 11-53 

FROM  phrase 

The  ADD  statement 11-55 

TO  identifier  series 
GIVING  identifier  series 
CORRESPONDING  phrase 
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NUCLEUS  T.EVEL  2 


The  ALTER  statement II-S7 

The  series  option  is  allowed 

The  COMPUTE  statement  11-58 

identifier  series 
ROUNDED  phrase 
STZE  ERROR  phrase 


The  DISPLAY  statement  (no  restrictions  on  the  number 


of  transfers  of  data) 11-59 

UPON  Dhrase 

The  DIVIDE  statement  II— 6 1 

TNTO  identifier  series 


GIVING  identifier  series 
REMAINDER  phrase 

The  GO  TO  statement  (procedure-name  may  be  omitted)  . . 11-65 


The  IF  statement  (nested  statements) . 11-66 

The  INSPECT  statement  (multi-character  data  items)  . . 11-68 
series 

The  MOVE  statement 11-74 

CORRESPONDING  Dhrase 

The  MULTIPLY  statement  11-77 

BY  identifier  series 
GIVING  identifier  series 

The  PERFORM  statement  11-78 

UNTIL  phrase 
VARYING  nhrase 

The  STRING  statement  11-86 

DELIMITED  series 
POINTER  phrase 
ON  OVERFLOW  phrase 

The  SUBTRACT  statement  11-89 

FROM  identifier  series 
GIVING  identifier  series 
CORRESPONDING  phrase 

The  UNSTRING  statement  11-91 

DELIMITED  BY  phrase 
POINTER  phrase 
TALLYING  phrase 
ON  OVERFLOW  phrase 


2? 
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TAR1.E  HANDLING  LEVEL  1 


; 
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I 
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2.1  Table  Handling  Level  1 


Languaee  Concepts 

User-defined  words 1-76 

index-name 

Subscripting  - 3 levels 1-89 

Indexing  - 3 levels 1-89 

Data  Division 

The  OCCURS  clause III-2 

integer  TIMES 

INDEXED  BY  index-name  series 

The  USAGE  IS  INDEX  clause III-5 

Procedure  Division 

Relation  conditions  III-6 

Comparisons  involving  index-names  and/or 
index  data  items 

Overlapping  operands III-6 

The  SET  statement Ill- 11 

index-name/identifier  series 
index-name 

UP  BY  identifier/integer 
DOWN  BY  identifier/integer 
index-name  series 


; 


i 
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TABLE  HANDLING  LEVEL  2 


2.4  Table  Handling  Level  2 

All  elements  of  1 TBL  1.2  are  a part  of  2 TBL  1.2 


Data  Division 

The  OCCURS  clause III-2 

integer- 1 TO  intever-2  DEPENDING  ON  data-name 
2.4.1  ERROR:  OCCURS  DEPENDING  ON  clause 


The  READ  INTO.  RETURN  FROM  and  the  MOVE  statement  did  not 
function  correctly  when  the  receiving  data  item  was  described 
with  an  OCCURS  DEPENDING  ON  clause. 

(S0219.B,  ST216.B  and  TH221.B) 


ASCENDING/DESCENDING  data-name 
data-name  series 
ASCENDING/DESCENDING  series 


Procedure  Division 

The  SEARCH  statement  . . 
VARYING  phrase 
AT  END  nhrase 
WHEN  nhrase 

The  SEARCH  ALL  statement 
AT  END  phrase 
WHEN  phrase 


III-7 


III-7 
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SEQUENTIAL  1-0  LEVEL  1 


2.5  Sequential  1-0  Level  1 


Language  Concepts 

User-defined  words  1-76 

file-name 

record-name 

1-0  status IV—  1 

Environment  Division 

The  FILE-CONTROL  paragraph  IV-4 

The  file  control  entrv IV-4 

SELECT  clause 


ASSIGN  TO  imnlementor-name  clause 
ORGANIZATION  IS  SEQUENTIAL  clause 
ACCESS  MODE  IS  SEQUENTIAL  clause 
FTLE  STATUS  clause 

The  I-0-C0NTR0L  paragraph IV-6 

RERUN  clause 
SAME  AREA  clause 
SAME  AREA  series 


Data  Division 

File  Section IV-9 

The  file  description  entry IV- 10 

The  record  description  entry  IV-9 

The  BLOCK  CONTAINS  clause IV- 11 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause IV- 12 

The  DATA  RECORDS  clause IV- 13 

data-name 
dat.a-name  series 

The  LABEL  RECORDS  clause  IV- 1 4 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause  IV- 1 8 

integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause IV- 19 

imnlementor-name  IS  literal 


lmplementor-name  IS  literal  series 
Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  mav  appear 


in  a CLOSE  statement) IV-20 

REEL 

I1NTT 

The  OPEN  statement  (only  a single  file-name  may  appear 

In  an  OPEN  statement) IV-24 
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INPUT 

OUTPUT 

1-0 

The  READ  statement  

INTO  identifier 
AT  END  Dhrase 

The  REWRITE  statement.  . . . 
FROM  identifier 

The  USE  statement 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name 
ON  TNPUT 
ON  OUTPUT 
ON  T-0 

The  WRITE  statement  . . . . , 
FROM  identifier 
BEFORE/AFTER  integer  MNES 
BEFORE/AFTER  PAGE 


SEQUENTIAL  1-0  LEVEL  1 


IV-28 


IV-31 


IV-32 


IV-34 


ccvstk-vsrrqs 


SEQUENTIAL  1-0  LEVEL  2 


2.6  Senuential  1-0  Level  2 

All  elements  of  1 SEQ  1.2  are  a part  of  2 SEQ 
LanEuatre  Concepts 

Special  register  

LINAGE-COUNTER 


1 .2 


Environment  Division 

The  FILE-CONTROL  paragraph  . . . 

The  file  control  entry  

SELECT  clause 

OPTIONAL  phrase 

RESERVE  integer  AREA(S)  clause 
The  I-O-CONTROL  paragraph.  . . . 
SAME  RECORD  AREA  clause 
SAME  RECORD  AREA  series 
MULTIPLE  FILE  TAPE  clause 


Data  Division 

The  file  description  entry  

The  BLOCK  CONTAINS  clause  

integer- 1 TO  Integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  LINAGE  clause  

FOOTING  phrase 
TOP  phrase 
BOTTOM  phrase 

The  VALUE  OF  clause  

imnlementor-name  IS  data-name 
implementor-name  IS  data-name  series 


Procedure  Division 

The  CLOSE  statement  

NO  REWIND.  REMOVAL,  or  LOCK 
file-name  series 

The  OPEN  statement 

INPUT 

REVERSED 
NO  REWIND 
OUTPUT 

NO  REWIND 
EXTEND 

file-name  series 

TNPUT . OUTPUT,  1-0.  and  EXTEND  series 

The  USE  statement  

EXCEPTION/ ERROR  PROCEDURE  ON  file-name  series 
EXCEPTION/ERROR  PROCEDURE  ON  EXTEND 


1-80 

IV-3 


IV-U 

IV-H 


IV-6 


IV- 10 
IV-1 1 


IV-15 


IV-19 


IV-20 


IV-2H 


IV-32 


CCVS74-VSR395 

SEQUENTIAL  1-0  LEVEL  2 


The  WRITE  statement IV-34 

2.6.1  ERROR:  WRITE  ADVANCING  Statement 


For  the  WRITE  ADVANCING  statement  additional  line  spacing 
occurred  when  line  printing  crossed  the  physical  listing  page 
(page  perforation). 

(SQ201.B) 


BEFORE/AFTER  identifier  LINES 
BEFORE/AFTER  mnemonic-name 
AT  END-OF-PAGE  imperative-statement 


74-VSR^q‘S 


RELATIVE  T-0  LEVEL  1 


2. 7 Relative  1-0  Level  1 


Language  Concepts 

User-defined  words  1-76 

f 11  e-name 
record-name 

T-0  status V-2 

Environment  Division 

The  FILE-CONTROL  paraerranh V-5 

The  file  control  entry V-5 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  RELATIVE  clause 
ACCESS  MODE  clause 
SEQUENTIAL 
RANDOM 

FTT.E  STATUS  clause 

The  I-O-CONTROL  paragraph  V-7 

RERUN  clause 
SAME  AREA  clause 
SAME  AREA  series 


Data  Division 

File  Section V-10 

The  file  description  entry V—  1 1 

The  record  description  entry  V-10 

The  BLOCK  CONTAINS  clause  V-12 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause V-1R 

data-name 
data-name  series 

The  LABEL  RECORDS  clause V- 1 4 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause  V-15 

integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause V- 1 6 

implementor-name  IS  literal 


Implementor-name  IS  literal  series 


Procedure  Division 

The  CLOSE  statement V- 17 

WITH  LOCK 
file-name  series 

The  DELETE  statement V—  1 9 


INVALID  KEY  phrase 


L 


?Q 


* 

LI 
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RE1.ATTVR  T-0  LEVEL  1 


The  OPEN  statement V-20 

INPUT 

OUTPUT 

T-0 

file-name  series 

TNPUT , OUTPUT,  and  1-0  series 

The  READ  statement V-23 

TNTO  identifier 
AT  END  ohrase 
INVALID  KEY  phrase 

The  REWRITE  statement  V-26 

FROM  identifier 
INVALID  KEY  phrase 

The  USE  statement V-30 

EXCEPTION /ERROR  PROCEDURE 
ON  file-name 
ON  TNPUT 
ON  OUTPUT 
ON  T-0 

The  WRITE  statement V-32 

FROM  identifier 
INVALID  KEY  phrase 
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RELATIVE  T-0  1.EVEL  2 


2.8  Relative  1-0  Level  2 

All  elements  of  1 REL  0.2  are  a part  of  2 REL  0.2 

Environment  Division 

The  FILE-CONTROL  paragraph  . . . 

The  file  control  entry  

SELECT  clause 

RESERVE  integer  AREA(S)  clause 
ACCESS  MODE  IS  DYNAMIC  clause 
The  T-0-C0NTR0L  paragraph  . . . 

SAME  RECORD  AREA 
SAME  RECORD  AREA  entries 


Data  Division 

The  file  description  entry V—  1 1 

The  BLOCK  CONTAINS  clause  V-12 

integer- 1 TO  integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause V—  1 6 

implementor-name  IS  data-name 
imnlementor-name  IS  data-name  entries 

Procedure  Division 

The  READ  statement V-23 

NEXT  RECORD 

The  START  statement V-28 

KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  statement V-30 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name  series 


V- 5 
V-5 

V-7 
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INDEXED  1-0  LEVEL  1 


2.9  Indexed  1-0  Level  1 


Language  Concepts 

User-defined  words  1-76 

fi le-name 
record-name 

1-0  status VI-2 

c,n  ironmertt  Division 

The  FILE-CONTROL  Daragraph VI-S 

The  file  control  entry VI-5 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  INDEXED  clause 
ACCESS  MODE  clause 
SEQUENTIAL 
RANDOM 

RECORD  KEY  clause 
FT1.E  STATUS  clause 

The  T-O-CONTROL  Daragraph  VI-8 

RERUN  clause 
SAME  AREA  clause 
SAME  AREA  series 


Data  Division 

FTLE  SECTION VI- 11 

The  file  description  entry VI- 12 

The  record  description  entry VI- 11 

The  BLOCK  CONTAINS  clause VI- 13 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause VI- 1 4 

data-name 
data-name  series 

The  LABEL  RECORDS  clause VI- 15 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause  VI-16 

integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause VI- 17 

imolementor-name  IS  literal 


imnlementor-name  IS  literal  series 


Procedure.  Division 

The  CLOSE  statement VI- 18 

WTTH  LOCK 
file-name  series 

The  DELETE  statement  VI-20 
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INDEXED  T-Q  LEVEI.  1 


i 


I 


1 


INVALID  KEY  nhrase 

The  OPEN  statement  

INPUT 

OUTPUT 

T-0 

file-name  aeries 

INPUT,  OUTPUT,  and  1-0  series 

The  READ  statement  

INTO  identifier 
AT  END  phrase 
INVALID  KEY  phrase 

The  REWRITE  statement  

FROM  identifier 
INVALID  KEY  phrase 

The  USE  statement  

EXOEPTION/ERROR  PROCEDURE 
ON  file-name 
ON  INPUT 
ON  OUTPUT 
ON  1-0 

The  WRITE  statement  

FROM  identifier 
INVALID  KEY  phrase 


VI-21 


VI-24 


VI-28 

VI-1? 


VI-33 
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INDEXED  1-0  LEVEL  2 


2.10  Indexed  1-0  Level  2 

All  elements  of  1 INX  0,2  are  a part  of  2 INX  0,2 


Environment  Division 

The  FILE-CONTROL  paragraph  VI-5 

The  file  control  entry VI-5 

SELECT  clause 


RESERVE  integer  AREA(S)  clause 
ACCESS  MODE  IS  DYNAMIC  clause 
ALTERNATE  RECORD  KEY  clause 
WITH  DUPLICATES  phrase 

The  I-O-CONTROL  paragraph  VI-8 

SAME  RECORD  clause 
SAME  RECORD  AREA  series 


Data  Division 

The  file  description  entry VI- 12 

The  BLOCK  CONTAINS  clause  VI- 13 

integer- 1 TO  integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause VI- 17 

implementor-name  IS  data-name 
implementor-name  IS  data-name  series 

Procedure  Division 

The  READ  statement VI— 24 

KEY  IS  phrase 
NEXT  RECORD 

The  START  statement VI-30 

KEY  IS  phrase 
INVALID  KEY  phrase 
2.10.1  ERROR:  START  statement 


The  START  statement  incorrectly  positioned  the  record  pointer 
in  a program  which  contained  a PROGRAM  COLLATING  SEQUENCE 
clause.  The  presence  of  the  PROGRAM  COLLATING  SEQUENCE  clause 
should  have  no  effect  on  the  comparsions  for  the  START 
statement . 

(1X210. B) 


The  USE  statement VI-32 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name  series 
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SORT-MERGE  I.EVEL  1 


! 


2.11  Sort-Meree  Level  1 


Lancuase  Concents 

User-defined  word3  1-76 

file-name 

Environment  Division 

The  PILE-CONTROL  paragraph  VII-2 

The  file  control  entry VII-2 

SELECT  clause 

ASSIGN  TO  implementor-name  clause 
Data  Division 

FTLE  SECTION VII-S 

The  sort-meree  file  description  entry  VII-S 

The  DATA  RECORDS  clause VII-6 

The  RECORD  CONTAINS  clause  VII-7 

Procedure  Division 

The  RELEASE  statement  VII- 12 

PROM  phrase 

The  RETURN  statement  VII- 13 

INTO  Dhrase 
AT  END  nhrase 


The  SORT  statement  (only  one  SORT  statement,  a STOP 
RUN  statement,  and  anv  associated  input-output 
nrocedures  allowed  in  the  nondeclarative 

oortion  of  a program)  VII- 14 

KEY  data-name 

data-name  series 
ASCENDING  series  •» 

DESCENDING  series 
mixed  ASCENDING/DESCENDING 
INPUT  PROCEDURE  phrase 
THRU 

USTNG  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GTVTNP,  phrase 


l 


1 


.MS- 


- . — ■ ■ 
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SORT-MERGE  LEVEL  2 


t 


: 


2.12  Sort-Mprffp  Level  2 

fill  elements  of  1 SRT  0.2  are  a part  of  2 SRT  0.2 

Environment  Division 

The  FILE-CONTROL  paraeraph  

The  file  control  entry  

SELECT  clause 

The  I-O-CONTROL  paragraph  

SAME  RECORD  AREA  clause 

SAME  SORT/SORT-MERGE  AREA  clause 

SAME  series 

Procedure  Division 

The  MERGE  statement  

KEY  data-name 

data -name  series 
ASCENDING  series 
DESCENDING  series 
mixed  ASCENDING/DESCENDING 
COLLATING  SEQUENCE  phrase 
USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  Phrase 

The  SORT  statement  (multiple  SORT  statements  are 

permitted)  

COLLATING  SEQUENCE  phrase 

IISTNG  phrase  (multiple  file-names) 


I 

I ! 


VII-2 

VII-2 

VII-3 

VII-8 


VII- 14 
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2.13  Renort  Writer  Level  1 


Language  Consent 

User-defined  words  1-76 

file-name 

report-name 

Special  registers  1-80 


LINE-COUNTER  VIII- 1 

PAGE-COUNTER  VIII- 1 

Data  Division 

ReDort  Section  .....  VIII-? 

The  file  description  entry  VIII-3 

The  report  description  entry  VIII-4 

The  report  group  description  entry  .....  VIII-6 

The  BLOCK  CONTAINS  clause  VIII-24 

The  CODE  clause VIII-25 

The  CODE-SET  clause  VIII-26 

The  COLUMN  NUMBER  clause  VIII-27 

The  CONTROL  clause  VIII-28 


data -name 
data-name  series 
ETNAL 

ETNAL  data-name  series 


The  data-name  clause  VIII-30 

The  GROUP  INDICATE  clause  VIII-31 

The  LABEL  RECORDS  clause  VIII-32 

The  LINE  NUMBER  clause  VITT-33 

integer 
NEXT  PAGE 
PLUS  integer 

The  NEXT  GROUP  clause  VIII-35 

integer 
PLUS  integer 
NEXT  PAGE 

The  PAGE  clause VIII-36 


integer  LINES 
HEADING 
EIRST  DETAIL 
LAST  DETAIL 
FOOTING 


The  PICTURE  clause II- 1 8 

The  RECORD  CONTAINS  clause  VIII-39 

The  REPORT  clause  VIII-40 

renort-name  series 

The  SOURCE  clause  VIII-41 

The  SUM  clause VIII-42 

UPON  data-name  series 


* 
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RESET  nhrase 

The  TYPE  clause VIII-45 

REPORT  HEADING  (RH) 

PAGE  HEADING  (PH) 

CONTROL  HEADING  (CH) 

DETAIL  (DE) 

CONTROL  FOOTING  (CF) 

PAGE  FOOTING  (PF) 

REPORT  FOOTING  (RF) 


The  VALUE  IS  clause II-R6 

The  VALUE  OF  clause  VIII-50 

Procedure  Division 

The  GENERATE  statement  VIII-51 

renort-name 

data-name 

The  TNTTIATE  statement  VIII-53 

renort-name 

The  SUPPRESS  statement  VIII-54 

reDort-name 

The  TERMINATE  statement  VIII-55 

renort-name  series 

The  USE  statement  VIII-56 

BEFORE  REPORTING 


R8 
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2.14  Segmentation  Level  1 


Language  Concepts 

User-defined  words  1-76 

segment -number 

Procedure  Division 

Segment-numbers  IX-4 


Fixed  secment-number  range  0 through  49 
Non-fixed  seement-number  ram?s  SO  through  99 
All  sections  with  the  same  segment-number  must 
be  together  in  the  source  program 
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2. IS  Segmentation  Level  2 

All  elements  of  1 SEG  0.2  are  a part  of  2 SEG  0.2 

Environment  Division 

The  OBJECT-COMPUTER  paragraph 


SEGMENT-LIMIT  IX-5 

Prooedure  Division 

Sevment-numbers  IX-4 


Seotions  with  the  same  segment-number  need  not 
be  Dhvsically  contiguous  in  the  source  nroarram 
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?.16  Library  Level  1 

Lari<7iiaRe  Concepts 

User-defined  words  1-76 

text-name 

All  divisions 

The  COPY  statement X-2 
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2.17  Library  Level  2 

All  elements  of  1 LIB  0,2  are  a part  of  2 LIB  0,2 


Language  Concepts 

U3er-defined  words  1-76 

library-name 

All  divisions 

The  COPY  statement X-2 

OF  library-name 


REPLACING  phrase 
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2.18  Debug  Level  1 


Language  Concepts 

Sneoial  registers  . 1-80 

DEBUG- ITEM XI- 1 

Environment  Division 

The  SOURCE-COMPUTER  paragraph 

WITH  DEBUGGING  MODE  clause XI-3 

Procedure  Division 

USE  FOR  DEBUGGING  statement XI-4 

nrooedure-name 
nrocedure-name  series 
ALf.  PROCEDURES 

Debugging  lines XI- 10 
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2.19  Debug  Level  2 

All  elements  of  1 DEB  0,2  are  a part  of  2 DEB  0,2 
Procedure  Division 


USE  FOR  DEBUGGING  statement XI-4 


!i 
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Inter-Proeram  Communication  Level  1 


Data  Division 

Linkage  Seotion  XII-2 

Procedure  Division 

Procedure  Division  header  XII-4 

USING  Dhrase 

The  CALL  statement XII-5 

literal 

USING  data-name  series 

The  EXIT  PROGRAM  statement XII-8 


I 

' i 
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2.21  Inter-ProKram  Communication  Level  2 

All  elements  of  1 IPC  0.2  are  a part  of  2 IPC  0.2 


Procedure  Division 

The  CALL  statement XII-5 

identifier 
ON  OVERFLOW  phrase 

The  CANCEL  statement  XII-7 
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?-?2  Communication  Level  1 


• The  COMMUNICATION  H:  jule  is  not  currently  evaluated  as 

• nart  of  an  official  validation.  See  Section  1.9.3* 


Language  Concepts 

User-defined  words  1-76 

fid-name 

Data  Division 

COMMUNICATION  SECTION  XIII-2 

The  communication  description  entry  XIII-3 


FOR  TNPUT  clause 
END  (TRY 
MESSAGE  COUNT 
MESSAGE  DATE 
MESSAGE  TIME 
SYMBOLIC  QUEUE 
SYMBOLIC  SOURCE 
SYMBOLIC  SUB-QUEUE-n 
STATUS  KEY 
TEXT  LENGTH 
FOR  OUTPUT  clause 
DESTINATION  COUNT 
DESTINATION  TABLE 
INDEXED  BY 
ERROR  KEY 

SYMBOLIC  DESTINATION 
STATUS  KEY 
TEXT  LENGTH 


Procedure  Division 

The  ACCEPT  MESSAGE  COUNT  statement  XIII-1? 

The  DISABLE  statement XIII- 17 

INPUT 

OUTPUT 

KEY  identifier/literal 

The  ENABLE  statement XIII- IB 

INPUT 

OUTPUT 

KEY  identifier/literal 

The  RECEIVE  statement XIII- 17 

MESSAGE 

INTO  identifier 
NO  DATA  phrase 

The  SEND  statement  XIII-20 


H7 


COMMUNICATION  LEVE1.  1 


FROM  identifier- 1 WITH 
WTTH  EMI 

i WTTH  EGT 

REFORE/AFTER  ADVANCING 
identifier-3  LINES 
integer  LINES 
mnemonic-name 
PAGE 


! 


\ 
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2.23  Communication  Level  2 


The  COMMUNICATION  Module  is  not  currently  evaluated  as 
nart  of  an  official  validation.  See  Section  I.9.S. 


All  elements  of  1 COM  0.2  are  a part  of  2 COM  0.2 
Communication  Section 

The  communication  description  entry XIII-3 

FOR  INPUT 
INITIAL 


Procedure  Division 

The  DISABLE  statement XIII- 13 

INPUT 

TERMINAL 

The  ENABLE  statement  XIII- IS 

INPUT 

TERMINAL 

The  RECEIVE  statement XIII- 17 

SEGMENT 

The  SEND  statement  XIII-20 

FROM  identifier- 1 
WTTH  identifier-2 
WITH  ESI 
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3.  SECTION  3.  COMPILER  STATUS 


3.1  Federal  Standard  COBOL 


Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL  and  their 
relation  to  American  National  Standard  COBOL.  Thi3  section  lists  the  dis- 
crepancies described  in  Section  2 by  the  Federal  level  in  which  the  problem 
occurs.  All  errors  listed  for  a lower  level  are  also  errors  in  any  higher 
level,  even  though  thev  are  listed  only  in  the  lower  level.  The  paragraph 
numher  from  Section  2 is  used  to  reference  the  errors  in  each  Federal  level. 
When  the  subiect  compiler  fails  to  support  an  entire  functional  module,  that 
error  indication  anpear3  in  upDer  case  to  highlight  its  seriousness  in  compari- 
son with  other  errors  which  may  involve  only  a particular  lanc-uaue  element  or 
facility. 

3.1.1  Low  Level 


3.1.2  Low-Tntermediate  Level 


3.1.3  High-Intermediate  Level 

2.4.1  TH221  OCCURS  DEPENDING  ON  clause  in  a receiving  data  item 

did  not  function  correctly  when  used  with  a MOVE, 

REAn  . . . INTO,  or  RETURN  . . . INTO  statement. 

2.6.1  S0201  WRITE  ADVANCING  resulted  in  additional  line  snacing. 

3.1.4  High  Level 

2.9.1  1X210  START  statement  did  not  function  correctly  when  the 

nrogarm  contained  a COLLATING  SEQUENCE  clause  sDecifying 
a seouence  other  than  native. 


3.2  Federal  Standard  COBOL  Flagging 


A reauirement  of  Federal  Standard  COBOL  is  that  the  COBOL  imDlementation  include 
a facility  for  flagging  COBOL  elements  which  do  not  conform  to  a sDecified  level 
of  Federal  Standard  COBOL.  This  section  lists  the  flagging  discrepancies 
described  in  Section  2 by  Federal  COBOL  level. 

3.2.1  Low  Level 
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3. 2. 1.1 

IC431 

CALL  USING  data-name  series  was  flagged  with  an  incorrect 
message  which  indicated  that  it  was  a feature  of 

Low-Tntermediate  level  COBOL. 

3.2. 1 .2 

RL421 

OPEN  file-name  series  of  Relative  1-0  was  riot  flailed 
as  feature  of  Low-Intermediate  level  COBOL. 

3.2. 1.3 

RL421 

CLOSE  file-name  series  of  Relative  1-0  was  not  flawed 
as  a feature  of  Low-Intermediate  level  COBOL. 

3.2.1-11 

RL431 

USE  file-name  series  statement  of  Relative  1-0  was  not 
flagged  as  a feature  of  Hieh-Tntermediate  level 

COBOL. 

P.P.1.5 

SQ431 

OPEN  file-name  series  statement  of  Sequential  1-0  was 
not  flagged  as  a feature  of  Hieh-Tritermediate 
level  COBOL. 

3-2- 1.6 

SQ43 1 

CLOSE  file-name  series  statement  of  Seauential  1-0  was 
not  flagged  as  a feature  of  High-Intermediate 
level  COBOL. 

3.2.1 .7 

' 

. 

SQ431 

USE  file-name  series  statement  of  Sequential  1-0  was 
not  flagged  as  a feature  of  High-Tntermediate 
level  COBOL. 

3. 2. 1.8 

ST431 

SORT  statement  was  flagged  with  an  unnecessary  flagging 
message . 

P.P.P  Low-Intermediate  Level 

3.2.2. 1 

IC431 

CALL  USING  data-name  series  was  flagged  with  an 
incorrect  message  which  indicated  that  it  was  a 
feature  of  Low-Intermediate  level  COBOL. 

3. 2. 2. 2 

NC431 

Continuation  lines  were  not  flagged. 

3. 2. 2. 3 

; 

RL421 

OPEN  file-name  series  statement  of  Relative  1-0  should 
not  be  flagged  at  the  Low-Tntermediate  level  COBOL. 

3. 2. 2. 4 

RL421 

CLOSE  file-name  series  statement  of  Relative  1-0 
should  not  be  flagged  at  Low-Intermediate 
level  COBOL. 

3. 2. 2. 5 

I • 

RL431 

USE  file-name  series  statement  of  Relative  1-0  was 
not  flagged  as  a feature  of  High-Tntermediate 
level  COBOL. 

P.2.2.6 

SQ431 

OPEN  file-name  series  statement  of  Sequential  1-0  was 
not  flagged  as  feature  of  High-Intermediate  level 

COBOL . 

3. 2. 2.7 

S0431 

CLOSE  file-name  series  statement  of  Sequential  1-0  was 
not  flagged  as  a feature  of  High-Tntermediate  level 

COROL. 

3. 2. 2. 8 

SQ431 

USE  file-name  series  statement  of  Sequential  1-0  was 
not  flagged  as  a feature  of  High-Intermediate  level 

COROT,. 
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3. 2. 2. 9 ST431  SORT  statement  was  flagged  with  an  unnecessary  flagging 

message. 


3.2.3 

High-Tntermediate  Level 

3.2.3. 1 

RL421 

OPEN  file-name  series  statement  of  Relative  1-0 
should  not  beflagged  at  the  Hi gh-Tntermediate 
level  COBOL. 

3. 2. 3. 2 

RL421 

CLOSE  file-name  series  statement  of  Relative  1-0 
should  not  be  flagged  at  the  Hieh-Tntermediate 
level  COBOL. 

3. 2. 3. 3 

RL431 

USE  file-name  series  statement  of  Relative  1-0 
should  not  be  flagged  at  the  High-Intermediate 
level  COBOL. 

3. 2. 3. 4 

SQ431 

OPEN  file-name  series  statement  of  Seouential  1-0  should 
not  be  flagged  at  the  High-Intermediate 
level  COBOL. 

3. 2. 3. 5 

S0431 

CLOSE  file-name  series  statement  of  Sequential  1-0  should 
not  be  flagged  at  the  High-Tntermediate 
level  COBOL. 

3. 2. 3. 6 

SQ431 

USE  file-name  series  statement  of  Sequential  1-0  should 
not  be  flagged  at  the  High-Intermediate  level 

COROL . 

3. 2. 3. 7 

SQ431 

WRITE  AT  END-OF-PAGE  statement  of  Sequential  1-0  should 
not  be  flagged  at  the  High-Tntermediate  level 

COROL . 

3. 2. 3. 8 

ST431 

SORT  statement  was  flagged  with  an  unnecessary  flagging 
message. 

3.2.4 

High  Level 

3.2.4. 1 

SQ431 

WRITE  AT  END-OF-PAGE  of  Sequential  1-0  should  not  be 
flagged  at  the  High  level  COBOL. 

3.3  American  National  Standard  COBOL 

Full  American  National  Standard  COBOL  consists  of  the  entire  set  of  language 
elements  defined  in  the  ANSI  COBOL  standard  (refer  to  1.7).  It  is  also  the 
equivalent  of  high  level  Federal  Standard  COBOL  plus  the  Report  Writer  module. 
Therefore,  this  section  lists  only  those  discrepancies  found  while  validating 
the  Renort  Writer  Module. 


No  errors 
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4.  SECTION  4.  SOFTWARE  ENVIRONMENT 

The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment,  the  compiler  mav  or  may  not  continue  to  conform  to  the 
Standard.  It  should  be  noted  that  during  the  validation  process,  an  attempt  is 
made  to  validate  as  manv  different  options  as  possible. 

The  use  of  compiler  options,  implementor-names  in  the  Environment  Division 
and  anv  form  of  optimization  which  is  not  described  in  this  renort  could  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
snecifications  of  Standard  COBOL.  Only  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21-1  and  FPMR  10 1-32 . 1 305 . la . (Anv  deviations  which  must  be  corrected  as 
per  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

4.1  Compiler  options  used 

* 

(disposition  of  binary  output) 

(compile  all  COPY  statements') 

( name  of  library  file) 

(compile  as  subprogram) 

(listings  printed  single  space  at 
8 lines  per  inch) 

(source  listings  options  - source/ 
map/cross  reference) 

(Not  all  options  were  used  for  all  programs) 

The  compiler  flacuring  options  are:  FIPS=1  (Low  Level) 

FTPS=?  (Low-Intermediate  Level) 
FTPS=S  (High-Tntermediate  Level) 
FTPS=4  (Hiirh  Level) 


Opti on  defaulted : 
None 


4.2  Environment  Division  implementor-names 


Printer  destined  files 

•OUTPUT'  USE  • PRINTFrYES’ 
Tape  Files 
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For-  single-file  reels: 

TAPEnn  (where  n is  a numeric  digit) 

For  multi-file  reels: 

MULTIOn 

Sequential  1-0  Mas3-storage  files 

Single-unit : 

MSTiTSCn 
Multi-unit : 

UNTTnn 

Relative  1-0  Mass-storage  files 


Indexed  1-0  Mass-storage  files 

ISFIl.En  INDEXn 

Sort  files  (SD) 

SORTFLn 

Switch  names 

SWITCH- 1 
SWITCH-2 

Source  Computer  name 
CYBER 

Object  Computer  name 
CYBER 


4.1  Ontimization 

The  compiler  mav  or  may  not  have  optimization  features.  If  optimization  is 
available  by  option,  it  was  used  during  the  validation  process  (during  a 
separate  execution  of  the  Compiler  Validation  Svstem)  to  determine  if  its  use 
causes  the  comniler  to  produce  a program  which  does  not  give  the  expected 
results.  If  the  optimization  is  invoked  through  the  comDiler  call  statement 
then  it  is  mentioned  in  paragraph  1 above.  If  it  is  invoked  through  the 
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introduction  of  svntax  in  other  than  the  Data  and  Procedure  Divisions  of  the 
source  program  it  is  shown  below.  Optimization  which  would  reauire  modification 
to  the  Data  and  Procedure  Divisions  is  not  considered  in  this  report  in  that  it 
is  beyond  the  scor>e  of  the  use  of  standard  COBOL  and  the  validation  process. 

This  svstem  does  not  have  a selectable  optlmizaton  feature  for  the 
oomniler . 

4.4  Compiler 

Control  Data  Corporation.  COBOL  5.2.  Release  Level  485 

4.5  Operating  Svstem 

Control  Data  Comoration.  NOS  1.8.  Release  Level  485 

4.6  COBOL  Reference  Manuals 

Control  Data  Corporation 
COBOL.  Version  5 
Reference  Manual 
Publication  No.  60497100 

Control  Data  Corporation 
COBOL.  Version  5 
User's  Ouide 

Publication  No.  60497200 
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5.  SECTION  5.  ASCII  VALIDATION 
6.1  Purpose  of  ASCII  Validation 

The  ASCII  Validation  is  performed  by  running  a seouence  of  three  CCVS74 
nrograms  (SQ118.  SQ 119-  SQ120)  using  special  procedures.  The  purpose  of  this 
special  run  is  to  validate  that  the  comni ler/oneratlng  system  beiner  tested  is 
capable  of  processing  ASCII  code  represented  on  magnetic  tane  and  Punched  cards 
that  were  produced  (in  accordance  with  the  appropriate  American  National 
Standard)  by  another  system.  There  is  also  a magnetic  tape  and  a card  file 
created  during  the  validation  which  will  be  taken  to  another  3vstem  for  further 
processing.  The  purpose  is  to  determine  whether  the  compiler/ooerating  svstem 
being  tested  can  also  produce  ASCII  representation  on  magnetic  tape  and  punched 
cards  which  can  be  processed  by  a another  computer  system. 


S.2  Applicable  ANSI  Standards 

The  ASCII  Validation  is  based  on  several  American  National  Standards  arid 
presumes  their  support  by  the  compiler /operating  svstem  being  validated.  These 
are : 


1 . American  National  Standard  Programming  Language 
COBOL  X^.??- 1974. 

- The  CODE-SET  clause  is  used  to  read  and  write 
the  ASCII  files. 

- The  PROGRAM  COLLATING  SEQUENCE  clause  is  used  to 
process  the  data  in  ASCII  mode  as  well  a3  native 
mode . 

- The  SIGN. . .SEPARATE  clause  is  used  for  signed 
data  and  all  data  i3  in  the  DISPLAY  (character) 
mode. 

2.  American  National  Standard  Code  for  Information 
Interchange  (ASCII)  X3 .4— 1968 . (Note  that  this 
describes  the  code,  not  the  labeling  and  tane 
recording  formats.) 

8.  American  National  Standard  Hollerith  Punched  Card 
Code.  X8. 26- 1970. 

4.  American  National  Standard  Magnetic  Tape  Label s for 
Information  Interchange,  X7. 27-1969. 

5.  American  National  Standard  Recorded  Magnetic  Tape 
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for  Information  Interchange  (800  CPI,  NZRT). 
in.  22-1967. 

6.  American  National  Standard  Recorded  Magnetic  Tape 
for  Information  Interchange  (1600  CPI.  PR). 

X8  no-1973. 

The  language  of  the  197*1  C0R0L  Standard  provides  the  canability  to  accent, 
process,  and  produce  ASCII  code.  The  ASCII  Standard  describes  the  code  insofar 
as  the  bit  arrangement  and  configuration,  but  does  not  address  recording  tech- 
niques, record  formats  or  anv  labeling  scheme.  The  800  CPI,  NZRI  magnetic  tape 
recording  standard  wa3  used  to  establish  the  recording  density  and  techniaues. 
(1600  CPI.  PE  based  on  X3. 89-1973  "Recorded  Magnetic  TaDe  for  Information  Inter- 
change" could  be  used  under  special  arrangements.)  The  tane  labeling  scheme 
used  in  these  tests  is  based  on  X8. 27-1969  but  is  also  compatible  with  the 
revision  to  that  tane  label  standard.  Only  the  V0L1.  HDR1 , and  E0F1  labels  are 
used.  The  records  are  fixed  length  and  unblocked. 


R.I  ASCII  Validation  Process 

During  the  validation,  the  Validation  Manager  for  the  Federal  COBOL  Com- 
piler Testing  Service  U3es  the  ASCII-encoded  magnetic  tape  and  card  files  in 
addition  to  the  normal  tape  files  associated  with  a validation.  For  the  ASCII 
nortion  of  the  validation  the  following  steps  are  performed: 

1.  The  tane  file  and  card  deck  (produced  on  another  computer 
svstem)  are  used  as  input  to  several  programs  designed  to 
validate  whether  the  svstem  being  validated  can  accept  and 
process  the  data  as  defined  by  the  respective  standards.  Any 
changes  made  during  this  validation  to  the  source  programs 
reading  the  data  are  noted  below  in  5.4.1. 

2.  A tane  file  and  card  file  are  produced  during  the  validation 
which  should  prove  to  be  identical  to  the  files  described  in 
1 above.  These  two  files  are  then  processed  on  a different 
computer  system  to  determine  the  degree  to  which  the  svstem 
being  validated  supports  the  ASCII  standard.  Any  changes 
made  during  this  validation  to  the  source  program  producing 
the  data  are  noted  below  in  5. *1.2. 


6. 4 Results  for  This  Validation 

1 . The  CYBER  7R  system  was  able  to  successfully  process  both  the  ANSI 

labeled  magnetic  taoe  and  the  Hollerith  card  deck  (both  with  ASCII  code 
representations).  No  program  modifications  were  necessary. 
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Thfi  CYBER  73  system  produced  both  an  ANSI  labeled  magnetic  tape  and  a 
Hollerith  card  deck,  which  were  verified  later  on  a foreign  system 
as  being  correct  in  ANSI  format  and  ASCII  character  set.  No  program 
modifications  were  necessary. 
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A.  APPENDIX  A.  VALIDATION  SUMMARY  REPORT  WORKING  DOCUMENT 

This  aD^endix  is  a working  paner  produced  during  the  validation  and  documents 
the  results  of  the  compilation  and  execution  of  each  of  the  programs  comprising 
the  CCVS.  The  results  contained  herein  are  based  on  the  use  of  the  compiler 
within  the  Validation  Environment  identified  in  thi3  annendix.  This  anoendix 
(Validation  Summary  Working  Document)  is  not  part  of  the  official  Validation 
Summary  Report  (VSR)  and  is  not  intended  to  reflect  in  anv  wav  the  comDiler’s 
usefulness  or  decree  of  conformance  to  the  language  sDecification3. 

The  reader  of  this  apDendix  should  keeD  in  mind  that  the  same  problem 
area  may  aDpear  in  more  than  one  proeram,  but  is  considered  only  as  one  single 
discreDancy  and  as  such  is  reflected  only  once  in  the  bodv  of  the  VSR.  (The  VSR 
will  in  turn  only  reference  the  first  occurrence  of  the  problem  in  the 
anpendix. ) 

The  reference  documents  for  COBOL  are  American  National  Standard 
Programming  Lancuace  COBOL  (X4. 21-1974) . and  Federal  Standard  COBOL  (FIPS  PUB 
21-1) . 

A.1  Validation  Environment 

COMPILER  IDENTIFICATION:  COBOL  5.2.  Release  level  485 

(Product  No.  F521-46) 

COMPUTER  SYSTEM:  Control  Data  Corporation,  CYBER  174.  SN614 

657  and  659  tape  drives 

844  3incle  and  double  density  disks 

171K  memory  with  20  PPUs 

OPERATING  SYSTEM:  NOS  1.3.  Release  Level  485 


FIPS  COBOL  LEVEL  VALIDATED:  High 
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A.?  Run  Summaries 

COMMUNICATION  LEVEL  1 and  l.EVFL  2 

No  Communication  nrnirams  were  run.  See  Section  1.9. "3. 


COMMUNICATION  MODULE  FLAGGING 
CM4S1 

A.  Compilation 

1.  low  Level  Flagging 
No  errors 

2.  Low-Intermediate  Level  Flagging 
No  errors 

3.  High-Intermediate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 
No  errors 

B.  Execution 
No  errors 


CCVS74-VSR395 


APPENDIX  A 


DEBUG  MODULE  LEVEL  1 
DBIOI  through  DBI05 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

DEBUG  MODULE  LEVEL  2 
DB201  through  DB204 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

DEBUG  MODULE  FLAGGING 
DB421  through  DB422 
A.  Compilation 

1 . Low  Level  Flagging 
No  errors 

2.  Low-Intermediate  Level  Flagging 
No  errors 

3.  High-Intermediate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 
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No  errors 
B.  Execution 
No  errors 
DBH3  I 

A.  Compilation 

1 . Low  Level  Flagging 
No  errors 

2.  Low-Intermediate  Level  Flagging 
No  errors 

3.  High-Intermediate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 
No  errors 

B.  Execution 
No  errors 
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INTER-PROGRAM  COMMUNICATION  MODULE  LEVEL  1 

IC101  through  IC123 

A.  Comoilation 
No  errors 

B.  Execution 
No  errors 

IC151  through  IC152 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

INTER-PROGRAM  COMMUNICATION  MODULE  LEVEL  2 

IC20I  through  IC208 

A.  Comnilation 
No  errors 

B.  Execution 
No  errors 


TNTER-PROGRAM  COMMUNICATION  MODULE  FLAGGING 
IC421  through  ICH22 
A.  Compilation 
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1 . l.ow  Level  Flacking 
No  errors 

?.  Low-Tntermediate  Level  Flagging 
No  errors 

3.  Hieh-Tntermediate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 
No  errors 

B.  Execution 
No  errors 

IC431  through  IC432 
A.  Compilation 

1 . Low  Level  Flagging 

The  compiler  produced  a flagging  message  on  the  CALL  statement 

CALL  SUB-PROG-NAME  USING  DATA-N1:  DATA-N2 

indicating  it  was  a feature  of  Low-Tntermediate  Level  COBOL. 

(.e.,  FIPS=?)  of  Federal  Standard  COBOL.  The  CALL  identifier  USING 
data-name  series  is  a feature  of  High-Intermediate  Level  COBOL 
(i.e..  FIPS=3) . 

2.  Low-Tntermediate  Level  Flagging 
Same  as  A.1  above. 

3-  High-Tntermedi ate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 


No  errors 
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B.  Execution 
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INDEXED  1-0  MODULE  LEVEL  1 


1X101  through  1X107 
A.  Compilation 


No  errors 


B.  Execution 


No  errors 


INDEXED  1-0  MODULE  LEVEL  2 


1X201  through  1X209 
A.  Compilation 


No  errors 


B.  Execution 


No  errors 


1X210 

A.  Compilation 
No  errors 

B.  Execution 

Several  READ  and  START  tests  failed.  This  program  includes  a 
PROGRAM  COLLATING  SEQUENCE  clause  for  the  purpose  of  testing  the 
affect  of  this  clause  on  the  START  statement.  All  nonnumeric 
comparsion  rules,  as  specified  by  the  relational  operator  of  the 
KEY  phrase  of  the  START  statement,  apply  except  that  the  presence 
of  the  PROGRAM  COLLATING  SEQUENCE  clause  will  have  no  effect  on  the 
comparsion.  It  appears  this  systems  uses  the  PROGRAM  COLLATING 
SEQUENCE  clause  in  processing  Indexed  1-0  files. 


1X211 
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A.  Compilation 
No  errors 

B.  Execution 
No  errors 
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INDEXED  1-0  MODULE  FLAGGING 
1X441 


A.  Compilation 

1 . Low  Level  Flagging 

All  occurrences  of  the  language  elements 

OPEN  file-name  series 
CLOSE  file-name  series 

were  flagged  with  the  message 

30  7819  THE  (OPEN  or  CLOSE)  FILE-NAME  SERIES  IS  BEING 
DIAGNOSED  FOR  ANY  FIPS  LEVEL  LESS  THAN  FIPS=4 
AND  WITHOUT  REGARD  TO  FILE-NAME  ORGANIZATION. 

The  OPEN  and  CLOSE  statement  of  Indexed  1-0  is  a feature  of 
High  Level  of  Federal  Standard  COBOL. 

2.  Low-Intermediate  Level  Flagging 
Same  as  1X441. A. 1 above. 


3.  High-Intermediate  Level  Flagging 
Same  as  1X441. A. 1 above. 

4.  High  Level  Flagging 
No  errors 
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B.  Execution 


No  errors 


1X442 

A.  Compilation 

1 . Low  Level  Flagging 

The  same  compiler  message  as  noted  in  1X441. A. 1 was  produced  on  the 
USE  file-name  series  statement  in  this  program. 

2.  Low-Intermediate  Flagging 
Same  as  1X442. A. 1 above. 

3.  Hiah-Intermediate  Level  Flagging 
Same  as  1X442. A. 1 above. 

4.  High  Level  Flagging 
No  errors. 
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LTRRARY  MODULE  LEVEL  1 
LB101  through  LB107 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

LIBRARY  MODULE  LEVEL  2 
LB201  through  LB207 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

LIBRARY  MODULE  FLAGGING 
LB421  through  LB441 
A.  Compilation 

1 . Low  Level  Flagging 
No  errors 

2.  Low-Intermediate  Level  Flagging 
No  errors 


3.  High-Intermediate  Level  Flagging 
No  errors 
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4.  High  level  Flagging 
No  errors 

B.  Execution 
No  errors 
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NCI  20 

A.  Compilation 
No  errors 

R.  Execution 
No  errors 

NC1R1  through  NC16R 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

NUCLEUS  MODULE  LEVEL  2 

NC201  through  NC219 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

NUCLEUS  MODULE  FLAGGING 

NC431 

A.  Compilation 
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1.  Low  Level  Flagging 

The  line  reference  number  noted  in  the  flavine  message  for 
detecting  nested  REDEFINES  clauses  points  to  the  original 
REDEFINES  clause  rather  than  to  the  nested  REDEFINES  clause. 

2.  Low-Intermediate  Level  Flawing 

a.  Same  as  NC431.A.1  above. 

b.  Source  lines  which  are  continuation  of  COBOL  words  were  not 
flagged . 

3.  High-Intermediate  Level  Flagging 
No  errors 

4.  High  Level  Flagging 
No  errors 

B.  Execution 
No  errors 
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RELATIVE  1-0  MODULE  LEVEL  1 

RL101  through  RL109 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

RL.  151  throucrh  RL153 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

RELATIVE  MODULE  LEVEL  2 

RL201  through  RL205 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 


RELATIVE  1-0  MODULE  FLAGGING 
RL421 

A.  Comnilation 
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1 . Low  Level  Flagging 

All  occurrences  of  the  OPEN  file-name  series  and  the  CLOSE  file-name 
series  were  flagged  with  the  message: 

30  7ft IQ  THE  (OPEN  or  CLOSE)  FILE-NAME  SERIES  IS  BEING  DIAGNOSED 
FOR  ANY  FTPS  LEVEL  LESS  THAN  FIPS=4  AND  WITHOUT  REGARD 
TO  ETI, E-NAME  ORGANIZATION. 

The  OPEN  and  CLOSE  statements  for  Relative  1-0  are  a feature  of 
Low-Intermediate  Level  of  Federal  Standard  COBOL. 

2.  Low-Tntermediate  Level  Flagging 
Same  as  RL421.A.1  above. 

3.  High-Intermediate  Level  Flagging 
Same  a3  RL421.A.1  above. 

4.  High  Level  Flawing 
No  errors 


RL4?1 

A.  Compilation 

1 . Low  Level  FI agging 

The  same  flagging  message  as  noted  in  RL421.A.1  was  nroduoed  for 
the  USE  file-name  series  statement  in  this  program.  The  USE 
file-name  series  is  a feature  of  High-Intermediate  Level  of 
Federal  Standard  COBOL. 

2.  Low-Intermediate  Level  Flagging 
Same  a3  RL43 1 . A . 1 above. 

3-  High-Tntermediate  Level  Flagging 
Same  as  RL431.A.1  above. 

4.  High  Level  FLagtrins 
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No  error3 
B.  Execution 
No  errors 


REPORT  WRITER  MODULE  LEVEL  1 
RW101  through  RW10H 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 
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SEGMENTATION  MODULE  LEVEL  1 
SG  1 0 I through  SG106 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 


SEGMENTATION  MODULE  LEVEL  2 
SG201  through  SG204 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 


SEGMENTATION  MODULE  FLAGGING 
SG42 1 and  SG441 
A.  Compilation 

1 . Low  Level  Flagging 
No  errors 

2.  Low-Intermediate  Level  Flagging 
No  errors 

3.  High-Intermediate  Level  Flagging 
No  errors 
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Level  Fla^e-incr 
No  errors 
P-  Execution 
No  errors 
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SEQUENTIAL  1-0  MODULE  LEVEL  1 
SQ101  through  SQ121 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

SO  151  through  SQ153 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 


SEQUENTIAL  1-0  MODULE  LEVEL  2 
SQ201 

A.  Compilation 
No  errors 

B.  Execution 

Tr>  test  WRT-TEST-09  additional  blank  lines  appeared  within  the 
logical  page  when  the  line  printing  crossed  onto  another  physical 
listing  pacre  (crossed  paee  perforation)  during  execution  of  a WRITE 
ADVANCING  statement. 

SQ202  I 

A.  Compilation 
No  errors 

! 


78 


VS74-VSR2QS 


A PPKNDTY  A 


R Execution 

Several  WRITE  ADVANCING  statements  in  this  program  produced  the 
same  results  as  noted  in  SQ201.B  above. 

SQ203  through  SQ213 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

SQ214 

A.  Compilation 
No  errors 

B.  Execution 


1.  Test  WRT-TEST-02  is  a test  of  a WRITE  BEFORE  ADVANCING  containing  an 
EOP  phrase.  The  LINAGE  clause  value  is  set  to  40  and  there  is  no 
FOOTING  phrase  specified.  The  test  expects  40  detailed  lines  to  be 
printed  on  the  1st  logical  page,  20  detailed  lines  printed  on  the  2nd 
nacre  and  the  EOP  line  printed  on  the  first  line  of  the  2nd  logical 
page.  This  system  printed  39  detailed  lines  and  the  EOP  line  on  the 
1st  logical  page. 

2.  Test  WRT- TEST-0 3 is  a test  of  a WRITE  AFTER  ADVANCING  statement 
containing  an  EOP  phrase.  The  LINAGE  clause  value  is  set  to  40  and 
there  is  no  FOOTING  Phrase  specified.  The  test  expects  29  detailed 
lines  to  be  printed  on  the  1st  logical  page,  the  remaining  detailed 
lines  printed  on  the  2nd  page  arid  the  EOP  line  to  follow  detailed 
line  40  and  be  the  2nd  line  of  the  2nd  logical  page.  This  system 
printed  the  correct  number  of  detailed  lines  per  respective  logical  page 
but  printed  the  EOP  line  as  the  first  line  on  the  2nd  logical  page 
(before  detailed  line  40)  instead  of  the  2nd  line. 

3-  Several  WRTTE  ADVANCING  statements  in  this  program  produced 
the  3ame  results  as  noted  in  SQ201  above. 
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A.  Comni 1 at inn 
No  errors 

B.  Execution 
Same  as  SQ214.B.3  above. 

S0216  through  SQ218 

A.  ComDilation 
No  errors 

B.  Execution 
No  errors 

S0219 

A.  Compilation 
No  errors 

B.  Execution 

Test  READ-TEST-3  reads  a record  (using  the  READ  INTO  statement!  into  a group 
item  which  includes  a data  item  with  an  OCCURS  DEPENDING  ON  clause.  Before 
the  operation  is  performed  the  0D0  value  is  set  to  5 (maximum  possihle  value 
is  9).  the  read  is  executed,  the  0D0  value  is  reset  to  9 and  then  the  group 
item  is  checked.  Only  the  number  of  occurances  active  (5)  at  the  time  the 
INTO  is  executed  should  participate  in  the  operation. 

Computed  result:  "123456789" 

Expected  result:  "12345xxxx" 

Where  'xxxxx'  should  not  be  *6789'  unless  the  maximum 
length  (9)  was  used  in  the  operation  instead  of  the  active 
length  (5). 

SQ220  j 

A.  Comnilation 


No  errors 
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B.  Execution 
No  errors 


SEQUENTIAL  1-0  MODULE  FLAGGING 

sonsi 

A.  Compilation 

1 . Low  Level  Fla^cring 

The  following  Language  elements 

USE  . . . file-name  series 
OPEN  OUTPUT  file-name  series 
CLOSE  file-name  series 

OPEN  INPUT  file-name- 1 OUTPUT  file-name-2 
were  flashed  with  the  message 

SO  7819  THE  (USE  or  OPEN  or  CLOSE)  FILE-NAME  SERIES  TS  BEING 
DIAGNOSED  FOR  ANY  FIPS  LEVEL  LESS  THAN  FIPS=4  AND 
WITHOUT  REGARD  TO  FILE-NAME  ORGANIZATION. 

The  file-name  series  of  the  above  statements  for  Sequential  1-0 
is  a feature  of  Hieh-Tntermediate  Level  and  higher  levels  of 
Federal  Standard  COBOL. 

2.  Low-Intermediate  Level  Flatreing 
Same  as  SQ431.A.1  above. 

3.  High-Tntermediate  Level  Flagging 
a.  Same  as  SQH31-A.1  above. 

h.  The  flashing  message 

IQ  78?fi  FIPS=S  SUPPORTS  AT  END-OF-PAGE 
IMPERATIVE-STATEMENT 


was  issued  on  a WRITE  AT  END-OF-PAGE  statement.  There  should  not 
he  any  flagging  message  produced  on  this  elements  at  this  level 
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of  comniler  monitoring. 
4.  Hieh  Level  FlaRsrintr 

Same  as  SQ431.A.3.b  above. 


B-  Execution 


No  errors 
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SORT  MODULE  LEVEL  1 
ST  101  through  ST  1 1 8 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 
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SORT  MODULE  LEVEL  2 

ST201 

A.  ComDilation 
No  errors 

B.  Execution 
No  errors 

ST216 

A.  ComDilation 
No  errors 

B.  Execution 

Tests  RETURN-TEST- 1 and  RETURN-TEST-?  failed.  These  tests  use  the 
RETURN  INTO  identifier  statement  to  return  a record  from  the 
sort  into  an  identifier  which  is  described  with  an  OCCURS  DEPENDING  ON 
clause.  Prior  to  execution  of  the  RETURN  statement  the  0D0  is  set  to 
a value  less  than  its  maximum  number  of  occurrences.  This  system 
uses  the  maximum  permitted  size  of  the  identifier  for  the  RETURN 
INTO  oneration  regardless  of  the  ODO  value.  (See  SQ219  or 
TH2?1  for  additional  information  regarding  the  problem  which 
caused  this  test  to  fail.) 


ST217  through  ST?l8 

I 
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A.  Compilation 
No  errors 

B.  Execution 
No  errors 

1} 

SORT  MODULE  FLAGGING 
ST481  thru  ST4S4 

A.  Compilation 
1 - Low  Level  Flagging 

For  flagging  multiple  sorts  the  following  message  appears  regardless  of 
whether  there  is  one  or  more  than  one  SORT  statements  in  the  program: 

PLEASE  VERIFY  THAT  YOUR  PROCEDURE  DIVISION  CONTAINS  ONLY  THE 
BASTO  SORT  PROGRAM  ALLOWED  RY  LEVEL  1 OF  THE  SORT  MODULE 

2.  Low-Intermediate  Level  Flagging 
Same  as  A . 1 above . 

1.  High-Tntermediate  Level  Flagging 
Same  as  A.1  above. 

4.  High  Level  flagging 
No  errors 

B.  Execution 
No  errors 

ST441  thru  ST44S 
A.  Compilation 

1.  Low  Level  Flagging 
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Same  as  STJHI.A.I  above. 

2.  Low-Intermediate  Level  Flashing 
Same  as  STlni.A.1  above. 

R.  High-Tntermediate  Level  Flagging 
Same  as  ST431.A.1  above. 

4.  High  Level  Flagging 
No  errors 
B.  Executon 
No  errors 
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“ABLE  HANDLING  LEVEL  1 

TH10I  through  THill  and  THIS  I through  TH1S2 

A.  Compilation 
No  errors 

B.  Execution 
No  errors 

TABLE  HANDLING  LEVEL  2 
TH201  through  TH220 
A.  Comoilation 
No  errors 
R.  Execution 
No  errors 
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TH22I 

A.  Comnilation 
No  errors 

B.  Execution 

Test  MOVE-TEST-4  did  not  produce  the  ejected  result.  This 
test  sets  the  0D0  value  for  the  recieving  field  to  Q . moves  the 
value  'PASS'  into  nositions  6 through  9 of  the  variable  length 
data  item  and  resets  the  0D0  value  to  S - indicating  that  onlv 
6 of  the  9 occurances  of  the  variable  length  data  item  are  active. 
Then  the  value  '9  ACTIVE:  TEST  FAIL'  is  moved  to  the  uroun  containing 
the  variable  length  data  item.  The  characters  'FAIL'  should  not 
be  moved  since  they  are  bevond  the  active  portion  of  the  variable 
length  data  item.  The  0D0  value  is  once  again  set  to  0 and  the 
nositions  6 through  9 are  examined  to  see  if  the  data  corresponds 
to  the  value  moved  which  was  beyond  the  active  area  of  the  variable 
length  data  item. 
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Computed  Result : "9  ACTIVE:  TEST  FAIL" 

F.xnected  Result:  "9  ACTIVE:  TEST  xxxx" 

Where  'xxxx'  would  not  contain  'FAIL'  unless  th  . maximum 
leneth  (Q)  was  used  in  the  operation  instead  of  the  active 
length  ( B ) . 


TABLE  HANDLING  MOnUT.E  FLAGGING 
TH431 

1.  Low  Level  Flagging 
No  errors 

2.  Low-Tntermediate  Flagging 
No  errors 

3.  High-Intermediate  Flagging 
No  errors 

4.  High  Level  Flagging 
No  errors 

B.  Execution 
No  errors 


